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IBM 1130/1800 Plotter Subroutines 





This publication describes relocatable plotter subroutines for 
the IBM 1130 and 1800 systems. These subroutines can be 
used to draw and scale grid lines, to draw special point char- 
acters, to draw alphameric characters at various angles, and 
to plot curves, graphs, charts, and maps. The subroutines 
^^ canbe usedin bothassembler and FORTRAN language programs. 
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PREFACE 


This manual describes a group of relocatable plotter 
subroutines that aids the programmer in converting 
computed data into graphic form. These subroutines 
can be used with any IBM 1130 Computing System or 
1800 Data Acquisition and Control System that 
includes an IBM 1627 Plotter, Model 1 or 2. These 
subroutines supplement the basic plotter subroutine 
included as a part of the 1130 and 1800 subroutine 
libraries and can be used with any of the following 
IBM programming systems: 


e 1130 Card/Paper Tape Programming System 
e 1130 Disk Monitor System, Version 1 
e 1130 Disk Monitor System, Version 2 
e 1800 Card/Paper Tape Programming System 


e 1800 Time-Sharing Executive System 


Third Edition (june 1969) 


1800 Multiprogramming Executive Operating System 


Core storage requirements are given in Appendix 


A, subroutine usage is listed in Appendix B, and 
three sample programs are shown in Appendix C. 


Descriptions of related publications can be found 


in the following: 


e IBM 1130 Computing System Bibliography 


(Form A26-5916) 


e IBM 1800 Data Acquisition and Control System 





Bibliography (Form A26-5921) 


This is a major revision of, and obsoletes, C26-3755-1 and Technical Newsletter N33-8010. 
Some parts of the manual have been revised, information has been added and other changes 


made, to increase the manuals accuracy and usefulness, Changes to the text, and small 


changes to illustrations 


are indicated by a vertical line to the left of the change; 
or added illustrations are denoted by the symbol e to the left of the caption. 


changed 


Changes are periodically made to the specifications herein; before using this publication in 


connection with the operation of IBM systems, consult the latest SRL Newsletter, Form 


N20-1800 for the editions that are applicable and current. 


A form is provided at the back of this publication for readers comments. 


If the form has 


been removed, comments may be addressed to IBM Nordic Laboratory, Technical Com- 


munications, Box 962, 181 44 Lidingoe, Sweden. 


© International Business Machines Corporation 1966, 1969 
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GENERAL 


When connected to an IBM 1130 Computing System 

or an IBM 1800 Data Acquisition and Control 

System, the IBM 1627 Plotter can be programmed 

to produce bar charts, organization charts, 
engineering drawings, maps,or special curves. 

This manual describes a set of subroutines, written 
in assembler language, used to control the plotter. 
The subroutines can also be called from a FORTRAN- 
language program, 


PLOTTER CHARACTERISTICS 


The basic characteristics of the plotter are listed 
in Table 1, 

X-axis movement is produced by rotating the 
chart paper on the drum under the pen. Rotating 
the drum down causes the pen to draw a line, 
effectively, in the up direction; this movement 
is the positive X-axis motion, Rotating the chart 
paper up produces the negative X-axis motion. 

Y-axis movement is caused by moving the pen 
' parallel to the drum axis. When looked at from 
the front of the plotter, the positive Y-axis motion 
is to the left; the negative, to the right. 

Thus, the length of the X-axis is limited by the 
length of the roll of chart paper, and the length 
of the Y-axis is determined by the paper's width. 
Various combinations of paper and pen movement 
with the pen up or down are utilized to produce 
the desired drawings. 


Table 1. IBM 1627 Plotter Characteristics 


Characteristic 


Chart Paper Width 12 inches 31 inches 


Plotting Width 11 inches 


29-1/2 inches 


Chart Paper Length 120 feet 120 feet 
Plotting Length 120 feet 120 feet 


incremental Step Size | 1/100 inch 1/100 inch 
Step Speed Up to Up to 


18,000 steps/min. 12,000 steps/min . 
600 Operations/min, 


Pen Status Change 600 Operations/min, 
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PLOTTER CAPABILITIES 


The plotter generates all lines by using a series of 
incremental straight line segments. The increment 
length is 0.01 inch, drawn in either a positive or a 
negative direction, parallel to either the X-axis or 
the Y-axis. Also, the paper and pen can be moved 
simultaneously to produce line increments at a 45° 
angle to either axis in either direction. This results 
in a diagonal line connecting opposite corners of an 
X-Y square. Combinations of increments at various 
angles can closely approximate any desired curve. 
Preciseness of lines and characters depends on 
the size of the pen point and the scale selected by 
the programmer. Figure 1 illustrates the smallest 
line increments capable of being generated and a 
sample curve made by using these increments. 


Basic Line Increments Enlarged Area of 


0.01" Curve Example 
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Figure 1. Plotter Line Generation 
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Graphs, curves, charts, etc., can be developed The point characters avaiable ote Mos y x ч d 
by programming the appropriate instructions to the rud <. All point characters are fixed an UV 
plotter. Е 

Because of the relative slowness of the plotter, 
compared with the computer, the plotter system has 
a buffering scheme which holds plotter instructions 
until they are executed. This leaves the computer 
free to do other jobs while the actual plotting is 
being completed. 


e Character: Positions the pen for annotation and 
provides character size and angle information. 


e Annotation: Forms the characters to be plotted 
from computer output data. Characters available 
аге 0-9, A-Z, andb-+., */=()$'. (The 
symbol represents a blank character. ) . 


SUBROUTINE FUNCTIONS 


There are six primary functions of the plotter 
subroutines described in this manual. 

INPUT FORMAT 
e Scale: Accepts and stores scaling information 


qui j d ch ter functions. 
required by the grid, plot and character tu The input data to the subroutines can be either in 


extended or standard precision format, but different 
subroutines are required for each precision, with 
the exception of the point subroutine. For example, 
to perform the plot function in standard precision, 
the FPLOT subroutine is used; for extended preci- 
sion, the EPLOT subroutine is used. Standard 


e Grid: Draws a line with scaled grid marks. 


e Plot: Moves the pen from its present position 
to a new position. It can also raise or lower 
the pen either before or after the traverse 


movement. E i 
precision uses two 16-bit words to form a constant 
e Point: Draws a special point character at the or variable, while extended precision uses three 
present location of the pen, if the pen is down. 16-bit words for the same constant or variable, 


U 


Up and down status of pen Co-ordinates of pen on execution 
on execution 


Subroutine 
an m 
(п. a) 


SCALE not applicable (n, a) present position (p. p) original position 


(origin is established) 
GRID (n. a) up (п, a) user specification 


PLOT (n. a) user specification (р. p) user specification 


POINT down down (P. p) original position 


CHARACTER (n. a) up (р.р) user specification 


ANNOTATION (n. a) up those given to end of List 
(WRITE) CHARACTER 

subroutine,otherwise 

(p.p) 





® Figure 2, Pen status changes effected by the subroutines. * 


APN 


AN 


SCALE 


The scale subroutine accepts and stores scaling 
information required by the grid, plot and character 
functions. 

If the scale subroutine is not called, the plot sub- 
routine assumes initial scale values of one inch per 
unit along both axes and establishes the origin 
(intersection of the X axis and the Y axis) at the 
present pen position. However, the scale subroutine 
must be called to define other scale factors and to 
establish the origin at other points. The scale sub- 
routine can be called as often as required to redefine 
the scaling values and the origin position (see 
Figure 2). 


X Direction: 0,25 Inch Per User's Unit 
Y Direction: 0,05 Inch Per User's Unit 


Desired Scale: 


Call Example (FORTRAN): 
CALL SCALE (0.25, 0,05, -5., 30.) 
UY + -, w 
X,Y Scale Factor Present Pen Location 


(Inches Per User's Unit) (User's Units) 


Chart Paper 


(Not Drawn 
To Scale) 


0 0 0 


Desired 
Origin 


0 0 


Present Pen 
Location 


(-5,30) 


c 
= 
= 
c 
= 
= 
c 


Paper Movements Pen Movements 


Up Down -——- Left Right —e 


Figure 2. Scaling and Origin Location (Example) 





PLOTTER SUBROUTINES 


NOTE: Each time the scale subroutine is called, 
the origin established is based on the physical 
location of the pen. Therefore, the pen must be 
moved to the position assumed by the subroutine 
before the subroutine is called. Also, the pen 
position cannot be moved more than 327.67 inches 
in either X direction from its physical location at 
the time the origin was last established. 


Scale values are given in inches per unit of the 
using program. For example, to indicate a scale 
of 1/4 inch equal to 1 foot, the scale value would 
be 0.25. To indicate a scale of 1 inch equal to 
10 years, the scale would be 0.1. Different scale 
values can be assigned to the X axis and the Y axis. 

The pen is usually aligned by reticle adjustment 
to some point on the chart paper. The scale sub- 
routine establishes the origin at any desired point 
relative to the physical location of the pen when the 
subroutine is called. Thereafter, or until the 
origin is moved, all measurements are calculated 
from this origin to prevent an accumulation of 
errors which would result from measuring from 
point to point with calculated values that have been 
rounded off or truncated. 

The values inserted by this subroutine are 
positive or negative as measured perpendicularly 
from each desired axis to the present location of 
the pen. 


FORTRAN 
Standard precision: 
CALL SCALF (X, Y , X , Y) 
S s o o 
Extended precision: 


CALL SCALE (X. Y_, X , Y ) 
S S о o 


Xs is a real constant or variable that defines the 
number of inches per user's unit to be used along 
the X axis. 
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Y, is a real constant or variable that defines the 
number of inches per user's unit to be used along 
the Y axis. 

Xo is a signed real constant or variable that 
specifies the X value of the present position of the 
pen relative to the desired origin, measured in the 
user's units. 

Yg is a signed real constant or variable that 
specifies the Y value of the present position of the 
pen relative to the desired origin, measured in 
the user's units. 


ASSEMBLER 


Standard precision: 


CALL SCALF 
DC A 
DC B 
DC C 
DC D 


Extended precision: 


CALL SCALE 
DC A 
DC B 
DC C 
DC D 


A, B, C, and D are the addresses of constants or 
variables whose values correspond to Xs, Ys, Xp; 
and Yo, respectively, as described in the FORTRAN 
calls. 

For the standard precision calling sequence, 
each constant or variable designated by A, B, С, 
and D must be two words. This is accomplished 
best by using the DEC statement. For extended 
precision, each constant or variable must be three 
words. This is accomplished best by using the 
XFLC statement. 


GRID 


The grid subroutine plots a straight line parallel 
to either the X or the Y axis in a positive or a 
negative direction with tick marks at regularly 
spaced intervals. The tick marks are 0. 10 inch 
long, with one half of the mark on each side of, and 
perpendicular to, the grid line. The programmer 


must specify the starting point, the direction to be 
plotted, how far to go, and the distance between 


tick marks. 


It is not required to know either the location of 
the pen or whether it is up or down when this sub- 
routine is called. At the end of the subroutine, the 
pen is left in the up position. 


0.01 inch 


i 
T 


Starting 

Point Tick Marks 
FORTRAN 
Standard precision: 

CALL FGRID (I, X, Y, U, N) 
Extended precision: 

CALL EGRID (I, X, Y, U, N) 


Iis an integer constant or variable that specifies 
the direction the grid line is to be generated, as 


follows: 


I= 0 specifies the 
I= 1 specifies the 
I = 2 specifies the 

= 3 specifies the 


+X direction 
+Y direction 
-X direction 
-Y direction 


Only the last two bits of I are used to determine 
the direction; therefore, use of larger numbers 
would repeat the instructions. For example, 
24 or 4 plot the same as 0 (+X direction). 

X is a signed real constant or variable that 


specifies the X value 


of the grid line starting point, 


measured in the user's units. 
Y is a signed real constant or variable that 


specifies the Y value 


of the grid line starting point, 


measured in the user's units. 
U is a real constant or variable that specifies 
the distance between tick marks, measured in the 


user's units. 


N is an integer constant or variable that defines 
the length of the grid line. N is equal to the number 
of tick marks minus one, and must be less than 


32768. 


u 


N 


ДА 


a 


ASSEMBLER 


Standard precision: 


CALL FGRID 
DC A 
DC B 
DC С 
DC D 
DC E 


Extended precision: 


CALL EGRID 
DC A 
DC B 
DC C 
DC D 
DC E 


A, B, C, D, and E are the addresses of constants 
or variables corresponding to I, X, Y, U, and N. 
respectively, of the FORTRAN language calls. 

The constants or variables represented by A and 
E should be one word each in both standard and 
extended precision calls. Each constant or variable 
represented by B, C, and D must be two words for 
standard precision and three words for extended 
precision. 


PLOT 


This subroutine is called to move the pen from its 
present position to a new position. It is the user's 
responsibility to check that the coordinates of the 
new position are within limits. The pen can also be 
raised or lowered before or after the traverse move- 
ment, as a part of this subroutine. 


NOTE: If the pen is up (or down), and a command 
is given to go up (or down), 100 milliseconds of 
plot time are wasted in performing the redundancy. 


FORTRAN 
Standard precision: 

CALL FPLOT (I, x Xa) 
Extended precision: 


CALL EPLOT (I, X» Y ) 


Iis an integer expression controlling the pen as 


follows: 
I= Zero No change 
I= Positive Control pen before movement 
I= Negative Control pen after movement 
I = Odd Raise pen 
I- Even Lower pen 


Xn is a signed real constant or variable defining 
the X value of the new position, measured in the 


user's units, 
Yy is a signed real constant or variable defining 


the Y value of the new position, measured in the 
user's units, 


ASSEMBLER 


Standard precision: 


CALL FPLOT 
DC A 
DC B 
DC C 


Extended precision: 


CALL EPLOT 
DC A 
DC B 
DC C 


A, B, and C are the addresses of constants or 
variables corresponding to I, X, and Yp, respec- 
tively, of the FORTRAN calls. 

The constant or variable represented by A should 
be only one word in both standard and extended 
precision. Each constant or variable represented 
by B and C must be two words for standard precision 
and three words for extended precision. 


POINT 





The point subroutine draws special point characters 
at the present position of the pen. The pen must 

be down when this subroutine is called. The point 
characters, and the points about which they are 
drawn, are illustrated below. All points are at 

the intersection of the horizontal and vertical 

line. 
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Y 


This subroutine assumes the pen is down and 
leaves the pen down when finished. Each point 
character is inscribed within a 0.10 inch square. 
FORTRAN 
The pen remains in the down position: 


CALL POINT (D 


Iis an integer expression that defines the character 
to be drawn as follows: 


I < 0 blank 
T=0 + 
I-1x 
1=2 A (+X) 
I=3 D (Y) 
1=4 V (-X) 
I=5 4 (+Y) 
I 26 blank 
ASSEMBLER 


The pen remains in the down position: 


CALL POINT 
DC A 


A is the address of a one-word constant or variable 
whose contents correspond to the I of the FORTRAN 
call. The constant or variable represented by A 
must be only one word in length. 


CHARACTER, 


This subroutine is used to initialize the annotation 
subroutine by establishing the height and width of 
characters, the angle (relative to the X axis) they 
are drawn, and the starting location. Calling this 
subroutine also raises the pen (if down) and moves 
the pen to the specified starting location. The 
height and width parameters determine a rec- 
tangle inside of which each character is drawn 
(see Figure 3). The annotation subroutine remains 
initializec by the call to this subroutine until a new 
call supersedes the old one. 


FORTRAN 
Standard precision: | 
CALL FCHAR (K , Y , X_, Y_, Theta) 
n m s’ s 


Extended precision: 


CALL ECHAR(X , Y , X , Y , Theta) 
n n S S 


Rotated Character 
Example 


Minimum Character Size 
For Character Subroutine 


Desired Letter Size: 


Width: 0.3 In. 
Height: 0.2 In. 
Angle: 0.7 Rad. 


Cail Example (FORTRAN): 





CALL FCHAR (4.,—7., 0.3,0.2,0.7) 

















Starting Stopping Point | | ; 
Point (X, Y) (Pen Up) Starting Point Z 
(User's Units) Letter 
4—-X +Х— 0.03" Size Angle 
; (Inches) 
0.03" 
Stopping 
Point 
(Pen Up) 
«— -X +X — 


Starting Point 
(X,Y Value 


@ Figure 3. Character Plotting (Example) 


Xn is a signed real variable or constant defining the 
X value (user's units) of the starting location. 

Yn is a signed real variable or constant defining the 
Y value (user's units) of the starting location. 

Xg is an unsigned real variable or constant 
defining the width of the character, expressed in 
inches. A value exceeding two decimal places will 
be rounded off to the nearest 0.01. 

Yg is an unsigned real variable or constant 
defining the height of the character, expressed in 


inches. A value exceeding two decimal places will 


de 


N DC 


be rounded off to the nearest 0. 01. 

Theta is a signed real variable or constant 
defining the angle at which the character (or line 
of characters) is to be drawn, expressed in radians. 
Theta is measured by rotating a line parallel to the 
X axis about the starting location. Positive values 
produce counterclockwise rotation; negative values, 
the opposite. 


NOTE: Due to the physical resolution limitation of 
the plotter, it is impossible to rotate a character 
through all angles, The possible angles are discrete 
and are a function of the particular character being 
rotated and the angle of rotation. Thus there may be 
a discrepancy between Theta and the actual plotted 
angle of rotation, which will be most significant for 
small character sizes, The same phenomenon will 
also cause distortion of the character shape in many 
cases. 


When using the annotation routine to plot a string of 
rotated characters, the rotational inaccuracies in 
each character will accumulate and may produce 
distorted lines, This accumulative affect may be 
overcome by drawing the line one character at a time 
and using ECHAR or FCHAR to position each char- 
acter in its proper location. 


NOTE: A rotation through a full circle (3609) is 2r 
radians. A rotation through an nth part of a circle, 
360? /n, is 27 /n radians. 


ASSEMBLER 


Standard precision: 


CALL FCHAR 
DC A 
DC B 
DC C 
DC D 
DC E 


Extended precision: 


CALL ECHAR 
DC A 
DC B 
DC C 
DC D 
E 


A, B, C, D, and E are the addresses of real 
constants or variables corresponding to the Xp, Үл, 
Xg, Yg, and Theta, respectively, of the FORTRAN 
calling sequence. The constants or variables 
represented by A, B, C, D, and E must be two 
words in standard precision and three words in 
extended precision. 


NOTE: When the plotter subroutines are first 
loaded, Х and Y, are set to 0. 10 inch and Theta 
is set to zero. If the annotation subroutine is 
called without calling the character subroutine, 
the characters are plotted at this size and angle, 
starting at the present position of the pen. These 
values are replaced by those of the character sub- 
routine when first called and, if needed, must be 
reinserted by using the character subroutine. 


ANNOTATION 


This subroutine forms the characters specified by 
computer output data to the parameters established 
by the character subroutine. These parameters 
determine a rectangle inside of which each character 
is drawn. The starting location is the lower left 
corner of the rectangle. In a continuous row of 
characters, the starting location is the lower left 
corner of the first character. When the last 
character is completed, this subroutine stops the 
pen in the up position over the lower left corner 

of the next character position in sequence, Repet~ 
itive lines are plotted end to end. The character 
set available is 0-9, A-Z, andb-+., */-()$*. 


FORTRAN 


Standard or extended precision: 


WRITE (I, FORMAT) List 


Tis the unsigned integer constant or variable 
that specifies the logical unit number of the I/O 
unit (plotter) to be used for output data, This 
number can be changed in the 1800 system when 
establishing the FORTRAN I/O unit (IOU) table. 

FORMAT is a statement number of the FORMAT 
statement describing the type of data conversion to 
be performed between the internal and external 
representation of each quantity in the list. 

List is a list of variable names, separated by 
commas, which represent the output data. 
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ASSEMBLER 


Standard precision (except MPX): 


LIBF FCHRI 

DC (Non~Zero) 

DC A 

DC 0 (Not Used) 
A DC U 

DC 0 (Not Used) 

EBC V 

EBC W 


Extended precision (except MPX): 


LIBF ECHRI 

DC (Non-Zero) 

DC A 

DC 0 (Not Used) 
A DC U 

DC 0 (Not Used) 

EBC V 

EBC w 


Standard precision (MPX only): 
CALL FCHRI 


DC A 
A DC U 
DC 0 (Not Used) 
EBC V 
EBC у 


Extended precision (MPX only): 
CALL ECHRI 


DC A 
A DC U 
DC 0 (Not Used) 
EBC V 
EBC W 


A is an arbitrarily assigned label. 

U is an unsigned integer expressing the total 
number of words contained under the label A, 
including one for the unused DC statement (0). 

V, W, etc., are the output data in EBCDIC. 
There are two 8-bit characters per word with a 
maximum of 18 words for any one EBC statement. 


NOTE: If 18 words are used, the last character of 
the 18th word will be blank because of the restric- 
tions of the EBC statement, 











Subroutine Subroutine 
Function Name 
Annotation FCHRI ` 
ECHRI* 
Character FCHAR 
ECHAR 






580 
586 (mpx) 


588 
576 (mpx) 






Plot Scaler 


Interface PLOTI 18 
66 (mpx) 


" In FORTRAN this function is performed using the 
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Standard precision 











Extended precision 





Standard precision 





Extended precision 












WRITE statement, 
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APPENDIX B. SUBROUTINE USAGE 















Called by LIBF 


FLOAT, FMPY, IFIX, FADD, FLDX, FINC, XYPLT, PLOTI, FSTOY, 
FLD 


FLOAT, EMPY, IFIX, EADD, ELDX, EINC, XYPLT, PLOTI, ESTOY, 
ELD 


FMOVE, XYPLT, PLOTI 


EMOVE, XYPLT, PLOTI, ELD, ESTO 






Plot Scaler 


Interface PLOTI, 
PLOTS 


*Separate entry points to the Annotation Routine. WCHRI and VCHRI are not entry points in the MPX System. 
** Called by CALL in the MPX System. 


10 





a 


This appendix contains three sample plotter programs 
utilizing the IBM 1130 Monitor System, 

Test Program 4 demonstrates the character- 
drawing capabilities of the plotter. Figure 4 shows 
a listing of this program, and Figure 5 shows the 
resultant plotter drawing. 

Test Program 5 demonstrates the curve-plotting 


// JOB 

// FOR 

**PLOTTER TEST 4 

*1OCS ( 1132 PRINTER» PLOTTER» CARO ) 
*LIST ALL 

*ONE WORD INTEGERS 


PLOTTER TEST 4 


c TEST CHARACTER ROUTINE 

DIMENSION IA(471+18(36)+1C(10)+1D126) 

EQUIVALENCE (IALL) IBULD SICUL) eC DACLIDSID(10) 

FORMAT(* PLOO4') 

FORMAT(! THIS IS A TEST OF THE CHARACTER ROUTINE!/t TEST IS IN 5! 
1' PARTS!//' PART 1 = PLOT THE FOLLOWING CHARACTERS „2 IN SIZE!) 
FORMAT(1H 4741) 

FORMAT(//' PART 2 = PLOT CHARACTERS A-Z „27и BY ,37H HORIZONTAL!) 
FORMAT(47A1) 

FORMAT(//' PART 3 = PLOT CHARACTERS А-2 425W BY 015H ON A 45!) 
FORMAT(//! PART 4 = PLOT CHARACTERS 0-9 sl5W BY «25H VERTICAL!) 
FORMAT(//! PART 5 = PLOT CHARACTERS O-9»A-2 „15 BY 415 ON А! 

1' 3 INCH CIRCLE?) 

K=2 


ensauru ne 


APPENDIX C. SAMPLE PROGRAMS 


capabilities of the plotter. Figure 6 shows a listing 
of this program, and Figure 7 shows the resultant 
plotter drawing. 

Figure 8 is a listing demonstrating the capability 
of the plotter to draw special point characters, and 
Figure 9 shows the resultant plotter drawing, The 
sample programs were assembled on the 1130 Disk 
Monitor System, Version 2. 


Cartridge status information will appear 
following // JOB Card on Monitor 2, 


Set the values of K, L, and M to the Logical Unit 


hs Numbers of the I/O devices on your system: 


M=7 
READ (K+5)IA 
WRITE(Lo1) 
WRITE(L«2) 
PI = 3,14159 
WRITE(L*3)1A 
CALL FCHAR(O« 9065629425041 
МАТТЕ(М 5) ТА 
WRITE(Lea) 
CALL FCHAR(0090300279037900) 
WRITE (МБ 310 
WRITE (L96) 
CALL FCHARLS27»9755425,415,P1/64] 
WRITE(M,51ID 
WRITE(G 7) 
CALL FCHAR(+«25+102+01510289P1/20) 
WRITE(MeS)IC 
WRITE(L»+8) 
T = 0. 
DEL ж PI/184 
DO 40 I = 1936 
CALL FCHAR(2, 41, 54COS (1155475 1, 5*SINI(T) se1554159T) 
WRITE(M+5)1811) 
40 T = T + DEL 
CALL FCHAR(1e » 74,954154150,) 
WRITE(UM,1) 
WRITE(L»1234) 
CALL EXIT 
1234 FORMAT(//' END OF TEST!// 


PLACE PLOTTER IN LOWER RIGHT CORNER OF IMAGINARY 
8 X 9 INCH RECTANGLE (8 = Y) 


nana 


END 


Figure 4. Plotter Test 4 Listing (Part 1 of 2) 


K = Reader 
L = Printer 
M = Plotter 
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VARTABLE ALLOCATIONS 


TACT )2002£-0000 IB(1 )=002E-0008 IC(I )=002E-0025 
DELIR 120032 KET )=0038 LUT 120039 

STATEMENT ALLOCATIONS 

1 =0067 2 »006C 3 20048 4 =00B0 5 «00СҒғ 
FEATURES SUPPORTED 

ONE WORD INTEGERS 

10C5 
CALLED SUBPROGRAMS 

FCHAR FCOS FSIN FMPY FDIV FLD FSTO 


5101Х SUBSC 


REAL CONSTANTS 


.314159E 01=003Е «000000E 0020040 s200000E 0040042 
«750000E 002004A 4250000£ 00=004C »150000E 00а004Ё 
+180000F 0222056 «159000E 0180058 25 75000Е 0120054 


INTEGER CONSTANTS 
220062 3=0063 720064 1=0065 


CORE REQUIREMENTS FOR 
COMMON 0 VARIABLES 62 PROGRAM 482 


END OF COMPILATION 


// XEQ 


PLOOS 
THIS 15 A TEST OF THE CHARACTER ROUTINE 
TEST IS IN 5 PARTS 


PART 1 = PLOT THE FOLLOWING CHARACTERS +2 IN SIZE 
123456789ARCDEFGHI JKLMNOPORSTUVWXYZ '=+0*/()5u9 


3620066 


PART 2 = PLOT CHARACTERS A=Z 427W BY +37H HORIZONTAL 


PART 3 = PLOT CHARACTERS А-7 ,25W BY 15H ON A 45 


PART 4 = PLOT CHARACTERS 0-9 +15W BY ,25H VERTICAL 


PART 5 


N 


ENO OF TEST 


Figure 4. Plotter Test 4 Listing (Part 2 of 2) 
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CARDZ 


10{1 )=0024=0008 PIIR 1«002E TER 220030 
Mtl 12003A TCT )=0038 


“0002 7 xooEF 8 =010D 1234 #0132 40 20900 


PRNTZ WCHRI SRED SWRT SCOMP SFIO SIOSI 


«300000E 000044 *270000E 0080046 «370000E 0080088 
+400000E 01 «0050 «120000E 0120052 +200000E 0120084 
+100000E 01=005С «790000E Ol=005E «100000E 00=00»0 


Insert data card following the object deck in the Card/Poper 
Tape system; following the // XEQ Card in Monitor system. 

The data card is shown under Part 1 ( 12345...) with the entries 
starting in column 1 ( no embedded blanks ). This data card 
will cause Figure 5 to be produced by the plotter. 


PLOT CHARACTERS 0=9,А=7 „15 BY 415 ON A 3 INCH CIRCLE 


=$ 0) /* +- , ZAXMANLSSOHONN TMCIHO J43038vV68Z79SvE2 TO 


ZAAMATLSSOGONN MP 1-9 43008 v 
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Figure 5. Plotter Test 4 Drawing (reduced approximately 23 percent) 
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// JOB Cartridge status information will appear 
// FOR following // JOB Card on Monitor 2. 
**PLOTTER TEST 5 

*NAME PLOOS 

*LIST ALL 

*ONE WORD INTEGERS 

*10CS ( 1132 PRINTER» PLOTTER ) 


FORMAT(! PLOO5') 
FORMÀT(! Y = SIN(2e#X) + COS(3e#X) 9 X = =2e*Plo 20*PI') 
FORMAT (F744) 
FORMAT(F743) 
L3 本 一 Set the values of L and M to the Logical Unit 
M=7 Numbers of the |/O devices on your system: 
WRITE(Ls1) L = Printer 
WRITE(L 93) Si ciere 
PI = 3414159 
= 1l4e/(4e#PT) 
= Te/he 
DY = «25 
= =2,]*#Р[ 
PY = =2„1 
CALL FPLOT( 2900800) 
CALL SCALFISX»SY+PX+Py} 
CALL ЕСВІО (0,0, +06 »P1/45 98) 
CALL FGRID( 290090099! /4e 58) 
CALL FGRID( 190090090798) 
CALL FGRID(3s00000sDY 96) 
T a 3.*P1/20 
XD = „050/5Х 
X = -2e69*PI 
Y = 24.05 
DEL = PI/4e 
EP = ,001 
Do 10 I s 1,17 
IF(ABSIX) = EP)9,9,7 
7 CALL FCHAR(X-=XD»Y»r.e 10701097) 
WRITE (Mo4)x 
9 X s X + DEL 
10 CONTINUE 
T a 0s 
Y = 22, 
X = -20,770/SX 
DEL = DY 
XD = .05/SY 
DO 20 I = 1917 
IF(ABS(Y) = EP)19911911 
11 CALL FCHAR(X»Y=XD».10s10109T) 
WRITE (Me5)Y 
19 Y a Y + DEL 
20 CONTINUE 
X = -94,9*PI 
CALL FPLOT(e29XsSIN(2«4 *X) 4COS(34 X) ) 
DEL = РІ/225, 
TEST = 2.*P1 
30 Y = SIN(2e#X)4+COS (30 *X) 
CALL FPLOT(OsXsY) 
IF(TEST-X150550540 
40 Xs X + DEL 
GO TO 30 
50 CALL FCHAR( 7220994 11/SX972o6 =e 40/5Y 5 110616,0) 
WRITEIM+3) 
CALL FPLOT(-2 PX PY) 
CALL FCHAR( =1e9#PTe~2elSeelsels0e) 
WRITE(UM»1) 
WRITE(L9»1234) 
CALL EXIT 


rum 


PLOTTER TEST 5 
1234 FORMAT(//! END OF TEST'//) 
c 


c PLACE PLOTTER IN LOWER RIGHT CORNER OF IMAGINARY 
С 7 X 14 INCH RECTANGLE (7 = Y 
END 
VARIABLE ALLOCATIONS 
PI(R )=0000 SX(R )20002 SYIR )=0004 DY(R )=0006 PX(R )=0008 PYIR )=000A 
TIR )=000€ XDIR )=000E XIR 120010 Y(R )=0012 DELIR )20014 EPIR 220016 
TEST(R )=0018 Lit 220024 M(1 250025 1(1 )=0026 


STATEMENT ALLOCATIONS 
1 =0057 3 =005C 4 =0075 5 =0077 1234 =0079 7 z0131 9 20144 10 =014A 11 20179 19 =088C 
20 =0192 30 «0100 40 #01F4 50 =01FC 


Figure 6. Plotter Test 5 Listing (Part 1 of 2) 
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FEATURES SUPPORTED 
ONE WORD INTEGERS 
TOCS 


CALLED SUBPROGRAMS 
FPLOT SCALF FGRID 
WCHRI  SWRT SCOMP 


FABS 
SFIO 


FCHAR FSIN 
SIOF SNR 


REAL CONSTANTS 
.314159Е 0120028 
+000000E 0020034 
.«770000E 0020040 
«19000CE 01x004C 


«140000E 022002A 
«300000E 0120036 
,225000Е 0320042 
s215000E 012004E 


INTEGER CONSTANTS 


320050 720051 220052 020053 


CORE REQUIREMENTS FOR PL005 
COMMON O VARIABLES 


40 PROGRAM 540 
END OF COMPILATION 

// XEQ 

PLOOS 

Y = SIN(2e%#X) + COS(3e#X)5 X = -2, P1. 2,%PI 


END OF TEST 


Figure 6. Plotter Test 5 Listing (Part 2 of 2) 


e400000E 012002C 
*200000E 0120038 
«220000E 0220044 


FSUB FMPY FDIV FLO FSTO FSBR FDVR PRN52 


«T700000E 01s002E 
«500000E=-01=003A 
«110000E 00=0046 


.«250000E 00=0030 
« 100000E-02=003C 
*400000E 00=0048 


*210000E 01»0002 
*100000E 00=000E 
•160000Е 0020024 


820054 120055 1720056 
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6-2831 





-2.3561 





-6-2831 


Figure 7. Plotter Test 5 Drawing (reduced approximately 37 percent} 
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-g*PI, 2-=Pl 


SIN(g-»X) + (DS(3.-*X)> X = 


Y= 


// JOB 

// FOR 
*IOCS(PLOTTERI 
*LIST ALL 


CALL FGRID (1908090596) 
X = 


= 0 
Y x< 0 
20 2 
THIS PROGRAM DRAWS THE POINT CHARACTERS 
PLACE PLOTTER ON RIGHT SIDE OF PAPER 

THE PEN 15 NOT RAISED AT THE END OF THE TEST 


SPACE FIGURES ONE HALF INCH APART 


nannnnnn 


Y = Y + 0.5 


LIFT PEN AND GO TO NEW LOCATION 


ann 


CALL FPLOT (1,Х»ү) 


DROP PEN 


non 


CALL FPLOT í(25»X»Y) 


DRAW FIGURE 


NAN 


CALL POINT (1-1) 


LOOP 


NAAN 


CONT INUE 

STOP 

END 

VARIABLE ALLOCATIONS 
XIR 120000 


STATEMENT ALLOCAT IONS 
2 20059 


FEATURES SUPPORTED 
TOCS 


CALLED SUBPROGRAMS 


FSRID FPLOT POINT FLD FSTO WCHRI SFIO 
REAL CONSTANTS 

.300000€ 2020008 4C00000E 202002A 
INTEGER CONSTANTS 


1=000C 0=000D 6=000E 
CORE REQUIREMENTS FOR 
COMMON O VARIABLES 8 


END OF COMPILATION 


PROGRAM 92 


// XEQ 


Figure 8. Special Point Character Listing 


*Y—4—V po 4— À&—34á 0 


Figure 9. Special Point Character Drawing 
(Actual Size 0.10 inch per character) 


STOP 


Cartridge status information will appear 
following // JOB Card on Monitor 2. 
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INDEX 


Annotation subroutine 7 


Calling sequence (see individual subroutines) 
Capabilities 1 

Character plotting (example) 6 

Character subroutine 6 

Characteristics 1 

Core storage requirements 9 

Curve example 1 


ECHAR 6, 7 
ECHRI 8 
EGRID 4, 5 
EPLOT 5 


Extended precision (also see individual subroutines) 


FCHAR 6, 7 
FCHRI 8 
FGRID 4, 5 


Format of input data 2 
FORMAT statement 7 
FORTRAN I/O unit table 7 
FPLOT 5 

Functions 2 


Grid subroutine 4 


IBM 1627 Plotter Characteristics (Table 1) 1 
Input format 2 
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Line generation 1 
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Plot subroutine 5 
Plotter 
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line generation 1 
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Sample programs (Appendix C) 11 
Scale subroutine 3 
SCALF 3, 4 
Scaling and origin location (example) 3 
Standard precision (also see individual subroutines) 
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grid 4 

plot 5 

point 5 

scale 3 
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